home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / HAPPYB.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  384 b   |  14 lines
  1. 5 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  2. 6 IF INKEY$="" THEN 6
  3. 10 PLAY "t120 l4 mfmn"
  4. 20 PLAY "o4 c8 c8 d c f e2"
  5. 30 PLAY "   c8 c8 d c g f2"
  6. 40 PLAY "   c8 c8 o5 c o4 a f e d2"
  7. 50 PLAY "t90 b-8 b-8 a f g f2"
  8. 58 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  9. 59 IF INKEY$="" THEN 59
  10. 60 CHAIN "A:PLOTTER
  11.  a f e d2"
  12. 50 PLAY "t90 b-8 b-8 a f g f2"
  13. 58 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  14. 59 IF INK